TOS Silver 2000/TOS Silver 2000.iso/programm/MM2_DEV/S/UTILITY/GPA.M

Text File | 1989-09-21 | 874 b | 32 lines

MODULE GPA;

(*
 * Dieses Hilfsprogramm erlaubt es, Adressen von in der Shell resi-
 * denten Prozeduren zu ermitteln. Dies ist v.A. hilfreich, wenn man
 * mit TEMPLEMON Breakpoints auf einzelne Prozeduren setzen möchte.
 * Dazu wird das Modul, das man untersuchen möchte, in der Shell
 * resident geladen. Dann kann dieses Programm gestartet werden und
 * der Modul- und Prozedurname, getrennt durch einen Punkt, eingegeben
 * werden, worauf die Adresse der Prozedur ausgegeben wird.
 *
 * Näheres im Def-Text von 'ModCtrl' zu der Funktion 'GetProcAddr'.
 *)

FROM ModCtrl IMPORT GetProcAddr;

FROM SYSTEM IMPORT ADDRESS;

IMPORT InOut;

VAR s: ARRAY [0..50] OF CHAR; loc: ADDRESS;

BEGIN
  LOOP
    InOut.ReadString (s);
    IF s[0]=0C THEN EXIT END;
    GetProcAddr (s, loc);
    InOut.WriteLHex (loc, 7);
    InOut.WriteLn;
  END
END GPA.